home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume10 / xlisp21 / part09 < prev    next >
Encoding:
Text File  |  1990-02-26  |  21.5 KB  |  990 lines
  1. Newsgroups: comp.sources.misc
  2. organization: Cognos Inc., Ottawa, Canada
  3. subject: v10i096: XLisP 2.1 sources 5/5
  4. From: garym@cognos.UUCP (Gary Murphy)
  5. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  6.  
  7. Posting-number: Volume 10, Issue 96
  8. Submitted-by: garym@cognos.UUCP (Gary Murphy)
  9. Archive-name: xlisp21/part09
  10.  
  11. #!/bin/sh
  12. # This is a shell archive, meaning:
  13. # 1. Remove everything above the #!/bin/sh line.
  14. # 2. Save the resulting text in a file.
  15. # 3. Execute the file with /bin/sh (not csh) to create the files:
  16. #    msstuff/msstuff.c
  17. #    msstuff/osdefs.h
  18. #    msstuff/osptrs.h
  19. #    makefile
  20. #    tags
  21. # This archive created: Sun Feb 18 07:49:09 1990
  22. # By:    Gary Murphy ()
  23. export PATH; PATH=/bin:$PATH
  24. echo shar: extracting "'msstuff.c'" '(5127 characters)'
  25. if test -f 'msstuff.c'
  26. then
  27.     echo shar: over-writing existing file "'msstuff.c'"
  28. fi
  29. sed 's/^X//' << \SHAR_EOF > 'msstuff.c'
  30. X/* msstuff.c - ms-dos specific routines */
  31. X
  32. X#include "xlisp.h"
  33. X
  34. X#define LBSIZE 200
  35. X
  36. X/* external variables */
  37. Xextern LVAL s_unbound,true;
  38. Xextern FILE *tfp;
  39. Xextern int errno;
  40. X
  41. X/* make sure we get a large stack */
  42. Xint _stklen = 32766;
  43. X
  44. X/* local variables */
  45. Xstatic char lbuf[LBSIZE];
  46. Xstatic int lpos[LBSIZE];
  47. Xstatic int lindex;
  48. Xstatic int lcount;
  49. Xstatic int lposition;
  50. Xstatic long rseed = 1L;
  51. X
  52. X/* osinit - initialize */
  53. Xosinit(banner)
  54. X  char *banner;
  55. X{
  56. X    printf("%s\n",banner);
  57. X    lposition = 0;
  58. X    lindex = 0;
  59. X    lcount = 0;
  60. X}
  61. X
  62. X/* osfinish - clean up before returning to the operating system */
  63. Xosfinish()
  64. X{
  65. X}
  66. X
  67. X/* oserror - print an error message */
  68. Xoserror(msg)
  69. X  char *msg;
  70. X{
  71. X    printf("error: %s\n",msg);
  72. X}
  73. X
  74. X/* osrand - return a random number between 0 and n-1 */
  75. Xint osrand(n)
  76. X  int n;
  77. X{
  78. X    long k1;
  79. X
  80. X    /* make sure we don't get stuck at zero */
  81. X    if (rseed == 0L) rseed = 1L;
  82. X
  83. X    /* algorithm taken from Dr. Dobbs Journal, November 1985, page 91 */
  84. X    k1 = rseed / 127773L;
  85. X    if ((rseed = 16807L * (rseed - k1 * 127773L) - k1 * 2836L) < 0L)
  86. X    rseed += 2147483647L;
  87. X
  88. X    /* return a random number between 0 and n-1 */
  89. X    return ((int)(rseed % (long)n));
  90. X}
  91. X
  92. X/* osaopen - open an ascii file */
  93. XFILE *osaopen(name,mode)
  94. X  char *name,*mode;
  95. X{
  96. X    return (fopen(name,mode));
  97. X}
  98. X
  99. X/* osbopen - open a binary file */
  100. XFILE *osbopen(name,mode)
  101. X  char *name,*mode;
  102. X{
  103. X    char bmode[10];
  104. X    strcpy(bmode,mode); strcat(bmode,"b");
  105. X    return (fopen(name,bmode));
  106. X}
  107. X
  108. X/* osclose - close a file */
  109. Xint osclose(fp)
  110. X  FILE *fp;
  111. X{
  112. X    return (fclose(fp));
  113. X}
  114. X
  115. X/* osagetc - get a character from an ascii file */
  116. Xint osagetc(fp)
  117. X  FILE *fp;
  118. X{
  119. X    return (getc(fp));
  120. X}
  121. X
  122. X/* osaputc - put a character to an ascii file */
  123. Xint osaputc(ch,fp)
  124. X  int ch; FILE *fp;
  125. X{
  126. X    return (putc(ch,fp));
  127. X}
  128. X
  129. X/* osbgetc - get a character from a binary file */
  130. Xint osbgetc(fp)
  131. X  FILE *fp;
  132. X{
  133. X    return (getc(fp));
  134. X}
  135. X
  136. X/* osbputc - put a character to a binary file */
  137. Xint osbputc(ch,fp)
  138. X  int ch; FILE *fp;
  139. X{
  140. X    return (putc(ch,fp));
  141. X}
  142. X
  143. X/* ostgetc - get a character from the terminal */
  144. Xint ostgetc()
  145. X{
  146. X    int ch;
  147. X
  148. X    /* check for a buffered character */
  149. X    if (lcount--)
  150. X    return (lbuf[lindex++]);
  151. X
  152. X    /* get an input line */
  153. X    for (lcount = 0; ; )
  154. X    switch (ch = xgetc()) {
  155. X    case '\r':
  156. X        lbuf[lcount++] = '\n';
  157. X        xputc('\r'); xputc('\n'); lposition = 0;
  158. X        if (tfp)
  159. X            for (lindex = 0; lindex < lcount; ++lindex)
  160. X            osaputc(lbuf[lindex],tfp);
  161. X        lindex = 0; lcount--;
  162. X        return (lbuf[lindex++]);
  163. X    case '\010':
  164. X    case '\177':
  165. X        if (lcount) {
  166. X            lcount--;
  167. X            while (lposition > lpos[lcount]) {
  168. X            xputc('\010'); xputc(' '); xputc('\010');
  169. X            lposition--;
  170. X            }
  171. X        }
  172. X        break;
  173. X    case '\032':
  174. X        xflush();
  175. X        return (EOF);
  176. X    default:
  177. X        if (ch == '\t' || (ch >= 0x20 && ch < 0x7F)) {
  178. X            lbuf[lcount] = ch;
  179. X            lpos[lcount] = lposition;
  180. X            if (ch == '\t')
  181. X            do {
  182. X                xputc(' ');
  183. X            } while (++lposition & 7);
  184. X            else {
  185. X            xputc(ch); lposition++;
  186. X            }
  187. X            lcount++;
  188. X        }
  189. X        else {
  190. X            xflush();
  191. X            switch (ch) {
  192. X            case '\003':    xltoplevel();    /* control-c */
  193. X            case '\007':    xlcleanup();    /* control-g */
  194. X            case '\020':    xlcontinue();    /* control-p */
  195. X            case '\032':    return (EOF);    /* control-z */
  196. X            default:        return (ch);
  197. X            }
  198. X        }
  199. X    }
  200. X}
  201. X
  202. X/* ostputc - put a character to the terminal */
  203. Xostputc(ch)
  204. X  int ch;
  205. X{
  206. X    /* check for control characters */
  207. X    oscheck();
  208. X
  209. X    /* output the character */
  210. X    if (ch == '\n') {
  211. X    xputc('\r'); xputc('\n');
  212. X    lposition = 0;
  213. X    }
  214. X    else {
  215. X    xputc(ch);
  216. X    lposition++;
  217. X   }
  218. X
  219. X   /* output the character to the transcript file */
  220. X   if (tfp)
  221. X    osaputc(ch,tfp);
  222. X}
  223. X
  224. X/* osflush - flush the terminal input buffer */
  225. Xosflush()
  226. X{
  227. X    lindex = lcount = lposition = 0;
  228. X}
  229. X
  230. X/* oscheck - check for control characters during execution */
  231. Xoscheck()
  232. X{
  233. X    int ch;
  234. X    if (ch = xcheck())
  235. X    switch (ch) {
  236. X    case '\002':    /* control-b */
  237. X        xflush();
  238. X        xlbreak("BREAK",s_unbound);
  239. X        break;
  240. X    case '\003':    /* control-c */
  241. X        xflush();
  242. X        xltoplevel();
  243. X        break;
  244. X    case '\024':    /* control-t */
  245. X        xinfo();
  246. X        break;
  247. X    }
  248. X}
  249. X
  250. X/* xinfo - show information on control-t */
  251. Xstatic xinfo()
  252. X{
  253. X    extern int nfree,gccalls;
  254. X    extern long total;
  255. X    char buf[80];
  256. X    sprintf(buf,"\n[ Free: %d, GC calls: %d, Total: %ld ]",
  257. X        nfree,gccalls,total);
  258. X    errputstr(buf);
  259. X}
  260. X
  261. X/* xflush - flush the input line buffer and start a new line */
  262. Xstatic xflush()
  263. X{
  264. X    osflush();
  265. X    ostputc('\n');
  266. X}
  267. X
  268. X/* xgetc - get a character from the terminal without echo */
  269. Xstatic int xgetc()
  270. X{
  271. X    return (bdos(7) & 0xFF);
  272. X}
  273. X
  274. X/* xputc - put a character to the terminal */
  275. Xstatic xputc(ch)
  276. X  int ch;
  277. X{
  278. X    bdos(6,ch);
  279. X}
  280. X
  281. X/* xcheck - check for a character */
  282. Xstatic int xcheck()
  283. X{
  284. X    return (bdos(6,0xFF));
  285. X}
  286. X
  287. X/* xsystem - execute a system command */
  288. XLVAL xsystem()
  289. X{
  290. X    char *cmd="COMMAND";
  291. X    if (moreargs())
  292. X    cmd = (char *)getstring(xlgastring());
  293. X    xllastarg();
  294. X    return (system(cmd) == 0 ? true : cvfixnum((FIXTYPE)errno));
  295. X}
  296. X
  297. X/* xgetkey - get a key from the keyboard */
  298. XLVAL xgetkey()
  299. X{
  300. X    xllastarg();
  301. X    return (cvfixnum((FIXTYPE)xgetc()));
  302. X}
  303. X
  304. X/* ossymbols - enter os specific symbols */
  305. Xossymbols()
  306. X{
  307. X}
  308. SHAR_EOF
  309. if test 5127 -ne "`wc -c 'msstuff.c'`"
  310. then
  311.     echo shar: error transmitting "'msstuff.c'" '(should have been 5127 characters)'
  312. fi
  313. echo shar: extracting "'osdefs.h'" '(90 characters)'
  314. if test -f 'osdefs.h'
  315. then
  316.     echo shar: over-writing existing file "'osdefs.h'"
  317. fi
  318. sed 's/^X//' << \SHAR_EOF > 'osdefs.h'
  319. X/* osdefs.h - system specific function declarations */
  320. X
  321. Xextern LVAL xsystem(),xgetkey();
  322. X
  323. SHAR_EOF
  324. if test 90 -ne "`wc -c 'osdefs.h'`"
  325. then
  326.     echo shar: error transmitting "'osdefs.h'" '(should have been 90 characters)'
  327. fi
  328. echo shar: extracting "'osptrs.h'" '(107 characters)'
  329. if test -f 'osptrs.h'
  330. then
  331.     echo shar: over-writing existing file "'osptrs.h'"
  332. fi
  333. sed 's/^X//' << \SHAR_EOF > 'osptrs.h'
  334. X/* osptrs.h - system specific function pointers */
  335. X
  336. X{    "SYSTEM",    S,    xsystem    },
  337. X{    "GET-KEY",    S,    xgetkey    },
  338. X
  339. X
  340. SHAR_EOF
  341. if test 107 -ne "`wc -c 'osptrs.h'`"
  342. then
  343.     echo shar: error transmitting "'osptrs.h'" '(should have been 107 characters)'
  344. fi
  345. echo shar: extracting "'makefile'" '(473 characters)'
  346. if test -f 'makefile'
  347. then
  348.     echo shar: over-writing existing file "'makefile'"
  349. fi
  350. sed 's/^X//' << \SHAR_EOF > 'makefile'
  351. XOFILES=xlisp.obj xlbfun.obj xlcont.obj xldbug.obj xldmem.obj xleval.obj \
  352. Xxlfio.obj xlglob.obj xlimage.obj xlinit.obj xlio.obj xljump.obj xllist.obj \
  353. Xxlmath.obj xlobj.obj xlpp.obj xlprin.obj xlread.obj xlstr.obj xlstruct.obj \
  354. Xxlsubr.obj xlsym.obj xlsys.obj msstuff.obj
  355. X
  356. XCFLAGS=-ml -f -O -G -w-pia -w-def -w-aus -Ic:\turboc\include
  357. X
  358. X.c.obj:
  359. X    tcc -c $(CFLAGS) $<
  360. X
  361. Xxlisp.exe:    $(OFILES) xlftab.obj
  362. X    tlink @xlisp.lnk
  363. X
  364. Xxlftab.obj:    xlisp.h osdefs.h osptrs.h
  365. X$(OFILES):    xlisp.h
  366. X
  367. SHAR_EOF
  368. if test 473 -ne "`wc -c 'makefile'`"
  369. then
  370.     echo shar: error transmitting "'makefile'" '(should have been 473 characters)'
  371. fi
  372. echo shar: extracting "'tags'" '(13349 characters)'
  373. if test -f 'tags'
  374. then
  375.     echo shar: over-writing existing file "'tags'"
  376. fi
  377. sed 's/^X//' << \SHAR_EOF > 'tags'
  378. X
  379. X..\v2.1\msstuff.c,487
  380. Xint osagetc(87,1694
  381. XFILE *osaopen(64,1272
  382. Xint osaputc(94,1806
  383. Xint osbgetc(101,1934
  384. XFILE *osbopen(71,1395
  385. Xint osbputc(108,2046
  386. Xoscheck(202,3970
  387. Xint osclose(80,1578
  388. Xoserror(39,691
  389. Xosfinish(34,631
  390. Xosflush(196,3850
  391. Xosinit(24,440
  392. Xint osrand(46,816
  393. Xossymbols(276,5386
  394. Xint ostgetc(115,2173
  395. Xostputc(174,3470
  396. Xstatic int xcheck(253,4917
  397. Xstatic xflush(233,4597
  398. Xstatic int xgetc(240,4720
  399. XLVAL xgetkey(269,5257
  400. Xstatic xinfo(222,4324
  401. Xstatic xputc(246,4825
  402. XLVAL xsystem(259,5016
  403. X
  404. X..\v2.1\xlbfun.c,1105
  405. XLOCAL LVAL makesymbol(363,7220
  406. XLVAL x1macroexpand(87,1989
  407. XLVAL xapply(40,948
  408. XLVAL xaref(511,10109
  409. XLVAL xarrayp(179,3765
  410. XLVAL xatom(116,2645
  411. XLVAL xboundp(206,4275
  412. XLVAL xbreak(594,11800
  413. XLVAL xcerror(576,11392
  414. XLVAL xcharp(161,3454
  415. XLVAL xcleanup(611,12187
  416. XLVAL xconsp(251,5073
  417. XLVAL xcontinue(625,12398
  418. XLVAL xendp(242,4925
  419. XLVAL xeq(260,5221
  420. XLVAL xeql(274,5470
  421. XLVAL xequal(288,5736
  422. XLVAL xerror(562,11099
  423. XLVAL xeval(27,713
  424. XLVAL xevalhook(632,12499
  425. XLVAL xfboundp(215,4464
  426. XLVAL xfloatp(152,3297
  427. XLVAL xfuncall(54,1255
  428. XLVAL xgensym(319,6336
  429. XLVAL xget(438,8646
  430. XLVAL xhash(487,9587
  431. XLVAL xintegerp(143,3143
  432. XLVAL xintern(357,7126
  433. XLVAL xlistp(233,4765
  434. XLVAL xmacroexpand(78,1823
  435. XLVAL xmakesymbol(351,7021
  436. XLVAL xmkarray(530,10534
  437. XLVAL xnull(224,4617
  438. XLVAL xnumberp(134,2970
  439. XLVAL xobjectp(197,4098
  440. XLVAL xputprop(452,8916
  441. XLVAL xremprop(470,9273
  442. XLVAL xset(302,5997
  443. XLVAL xstreamp(188,3922
  444. XLVAL xstringp(170,3608
  445. XLVAL xsymbolp(125,2798
  446. XLVAL xsymfunction(408,8100
  447. XLVAL xsymname(378,7556
  448. XLVAL xsymplist(425,8425
  449. XLVAL xsymvalue(391,7776
  450. XLVAL xtoplevel(618,12292
  451. XLVAL xvector(544,10786
  452. X
  453. X..\v2.1\xlcont.c,1498
  454. XLOCAL LVAL bquote1(98,2645
  455. XLOCAL dobindings(1214,26210
  456. XLOCAL LVAL doloop(858,18602
  457. XLOCAL doupdates(1251,26908
  458. XLOCAL LVAL evarg(1347,28896
  459. XLOCAL LVAL evmatch(1376,29450
  460. XLOCAL LVAL flet(602,13535
  461. XLOCAL int keypresent(488,11329
  462. XLOCAL LVAL let(553,12572
  463. XLOCAL LVAL match(1317,28262
  464. XLOCAL placeform(255,5946
  465. XLOCAL LVAL prog(649,14536
  466. XLOCAL LVAL progx(741,16216
  467. XLOCAL setffunction(325,7694
  468. XLOCAL tagbody(1290,27754
  469. XLOCAL toofew(1415,30225
  470. XLOCAL toomany(1422,30343
  471. XLVAL xand(498,11531
  472. XLVAL xblock(1018,22191
  473. XLVAL xbquote(85,2424
  474. XLVAL xcase(444,10395
  475. XLVAL xcatch(1049,22783
  476. XLVAL xcond(389,9362
  477. XLVAL xdefmacro(370,8867
  478. XLVAL xdefun(351,8361
  479. XLVAL xdo(846,18431
  480. XLVAL xdolist(914,19884
  481. XLVAL xdostar(852,18515
  482. XLVAL xdotimes(969,21066
  483. XLVAL xerrset(1137,24537
  484. XLVAL xflet(584,13216
  485. XLVAL xfunction(60,1844
  486. XLVAL xgetlambda(169,4223
  487. XLVAL xgo(689,15307
  488. XLVAL xif(526,12018
  489. XLVAL xlabels(590,13317
  490. XLVAL xlambda(151,3753
  491. XLVAL xlet(541,12405
  492. XLVAL xletstar(547,12489
  493. XLVAL xloop(816,17843
  494. XLVAL xmacrolet(596,13425
  495. XLVAL xor(512,11779
  496. XLVAL xprog(637,14361
  497. XLVAL xprog1(729,16052
  498. XLVAL xprog2(735,16136
  499. XLVAL xprogn(765,16676
  500. XLVAL xprogstar(643,14449
  501. XLVAL xprogv(778,16921
  502. XLVAL xpsetq(194,4726
  503. XLVAL xquote(51,1703
  504. XLVAL xreturn(702,15513
  505. XLVAL xrtnfrom(715,15770
  506. XLVAL xsetf(220,5255
  507. XLVAL xsetq(178,4433
  508. XLVAL xtagbody(1042,22686
  509. XLVAL xthrow(1082,23412
  510. XLVAL xtrace(1166,25118
  511. XLVAL xunless(430,10141
  512. XLVAL xuntrace(1188,25641
  513. XLVAL xunwindprotect(1096,23692
  514. XLVAL xwhen(416,9890
  515. X
  516. X..\v2.1\xldbug.c,170
  517. XLOCAL int breakloop(98,2144
  518. Xxlabort(24,641
  519. Xxlbaktrace(179,3841
  520. Xxlbreak(33,811
  521. Xxlcerror(60,1337
  522. Xxldinit(198,4237
  523. Xxlerror(47,1063
  524. Xxlerrprint(73,1620
  525. Xxlfail(40,958
  526. X
  527. X..\v2.1\xldmem.c,740
  528. XLOCAL int addseg(478,10505
  529. XLVAL cons(41,1124
  530. XLVAL cvchar(159,3535
  531. XLVAL cvfile(126,2874
  532. XLVAL cvfixnum(137,3076
  533. XLVAL cvflonum(149,3354
  534. XLVAL cvstring(72,1709
  535. XLVAL cvsubr(115,2637
  536. XLVAL cvsymbol(100,2313
  537. XLOCAL findmem(279,6243
  538. Xgc(287,6386
  539. XLOCAL mark(345,7704
  540. XLVAL newclosure(189,4190
  541. XLOCAL LVAL newnode(236,5250
  542. XLVAL newobject(178,3956
  543. XSEGMENT *newsegment(500,10988
  544. XLVAL newstring(86,2021
  545. XLVAL newstruct(203,4514
  546. XLVAL newustream(168,3764
  547. XLVAL newvector(214,4754
  548. X#define segsize(13,310
  549. XLOCAL stats(529,11583
  550. XLOCAL unsigned char *stralloc(261,5786
  551. XLOCAL sweep(425,9398
  552. XLVAL xalloc(577,12725
  553. XLVAL xexpand(553,12267
  554. XLVAL xgc(540,12040
  555. Xxlminit(646,14210
  556. XLVAL xmem(598,13167
  557. XLVAL xrestore(626,13738
  558. XLVAL xsave(613,13451
  559. X
  560. X..\v2.1\xleval.c,625
  561. XLOCAL badarglist(873,20489
  562. XLOCAL doenter(796,18722
  563. XLOCAL doexit(818,19271
  564. XLOCAL LVAL evalhook(324,7638
  565. XLOCAL LVAL evform(183,4416
  566. XLOCAL LVAL evfun(426,9965
  567. XLOCAL int evpushargs(354,8321
  568. X#define iskey(9,234
  569. Xint macroexpand(304,7164
  570. XLVAL makearglist(410,9637
  571. XLOCAL int member(837,19705
  572. Xint pushargs(385,9039
  573. X#define trenter(16,461
  574. X#define trexit(17,528
  575. Xxlabind(689,16100
  576. XLVAL xlapply(122,3075
  577. Xxlargstkoverflow(867,20367
  578. XLVAL xlclose(474,11037
  579. XLVAL xleval(43,1519
  580. XLVAL xlevalenv(72,2082
  581. XLVAL xlexpandmacros(276,6505
  582. Xxlfunbound(854,20073
  583. Xxlstkoverflow(861,20233
  584. Xxlunbound(847,19914
  585. XLVAL xlxeval(103,2712
  586. X
  587. X..\v2.1\xlfio.c,563
  588. XLOCAL LVAL flatsize(112,2515
  589. XLOCAL LVAL getstroutput(463,10105
  590. XLOCAL LVAL printit(78,1766
  591. XLVAL xclose(154,3365
  592. XLVAL xflatc(106,2402
  593. XLVAL xflatsize(100,2273
  594. XLVAL xformat(400,8684
  595. XLVAL xgetlstoutput(380,8305
  596. XLVAL xgetstroutput(371,8128
  597. XLVAL xmkstrinput(315,6899
  598. XLVAL xmkstroutput(365,8023
  599. XLVAL xopen(130,2867
  600. XLVAL xpkchar(203,4382
  601. XLVAL xprin1(52,1278
  602. XLVAL xprinc(58,1376
  603. XLVAL xprint(46,1179
  604. XLVAL xrdbyte(189,4055
  605. XLVAL xrdchar(175,3747
  606. XLVAL xread(27,732
  607. XLVAL xreadline(259,5626
  608. XLVAL xterpri(64,1485
  609. XLVAL xwrbyte(242,5266
  610. XLVAL xwrchar(225,4906
  611. X
  612. X..\v2.1\xlftab.c,30
  613. XLOCAL LVAL xnotimp(455,17022
  614. X
  615. X..\v2.1\xlglob.c,0
  616. X
  617. X..\v2.1\xlimage.c,265
  618. XLOCAL LVAL cviptr(333,7702
  619. XLOCAL OFFTYPE cvoptr(365,8575
  620. XLOCAL freeimage(243,5894
  621. XLOCAL readnode(310,7229
  622. XLOCAL OFFTYPE readptr(322,7486
  623. XLOCAL setoffset(278,6652
  624. XLOCAL writenode(288,6803
  625. XLOCAL writeptr(300,7053
  626. Xint xlirestore(126,3062
  627. Xint xlisave(41,1177
  628. X
  629. X..\v2.1\xlinit.c,58
  630. XLOCAL initwks(50,1712
  631. Xxlinit(36,1405
  632. Xxlsymbols(88,3357
  633. X
  634. X..\v2.1\xlio.c,252
  635. Xdbgprint(183,3764
  636. Xdbgputstr(191,3931
  637. Xerrprint(168,3480
  638. Xerrputstr(176,3649
  639. Xstdprint(153,3189
  640. Xstdputstr(161,3361
  641. Xtrcprin1(198,4051
  642. Xtrcputstr(205,4187
  643. Xint xlflush(147,3105
  644. Xint xlgetc(13,362
  645. Xint xlpeek(81,1789
  646. Xxlputc(113,2446
  647. Xxlungetc(56,1282
  648. X
  649. X..\v2.1\xlisp.c,86
  650. Xmain(27,722
  651. Xwrapup(160,3745
  652. Xxlevsave(143,3412
  653. Xxlfatal(152,3617
  654. Xxlrdsave(133,3150
  655. X
  656. X..\v2.1\xljump.c,225
  657. XLOCAL findandjump(160,3887
  658. Xxlbegin(16,463
  659. Xxlbrklevel(112,2685
  660. Xxlcleanup(118,2807
  661. Xxlcontinue(125,2977
  662. Xxlend(34,925
  663. Xxlgo(41,1028
  664. Xxljump(131,3102
  665. Xxlreturn(64,1525
  666. Xxlsignal(90,2164
  667. Xxlthrow(77,1847
  668. Xxltoplevel(105,2518
  669. X
  670. X..\v2.1\xllist.c,1582
  671. XLOCAL LVAL assoc(358,8404
  672. XLOCAL LVAL cxr(77,2657
  673. XLOCAL LVAL delif(780,17104
  674. Xint dotest1(453,10453
  675. Xint dotest2(472,10871
  676. XLOCAL LVAL gluelists(909,19987
  677. XLOCAL LVAL map(583,13062
  678. XLOCAL LVAL nth(504,11489
  679. XLOCAL LVAL remif(419,9716
  680. XLOCAL LVAL sortlist(859,18772
  681. XLOCAL splitlist(886,19459
  682. XLOCAL LVAL sublis(339,7944
  683. XLOCAL LVAL subst(296,7007
  684. XLVAL xappend(138,3839
  685. XLVAL xassoc(242,5861
  686. XLVAL xcaaaar(59,1947
  687. XLVAL xcaaadr(60,1989
  688. XLVAL xcaaar(49,1601
  689. XLVAL xcaadar(61,2031
  690. XLVAL xcaaddr(62,2073
  691. XLVAL xcaadr(50,1641
  692. XLVAL xcaar(43,1424
  693. XLVAL xcadaar(63,2115
  694. XLVAL xcadadr(64,2157
  695. XLVAL xcadar(51,1681
  696. XLVAL xcaddar(65,2199
  697. XLVAL xcadddr(66,2241
  698. XLVAL xcaddr(52,1721
  699. XLVAL xcadr(44,1462
  700. XLVAL xcar(25,1126
  701. XLVAL xcdaaar(67,2283
  702. XLVAL xcdaadr(68,2325
  703. XLVAL xcdaar(53,1761
  704. XLVAL xcdadar(69,2367
  705. XLVAL xcdaddr(70,2409
  706. XLVAL xcdadr(54,1801
  707. XLVAL xcdar(45,1500
  708. XLVAL xcddaar(71,2451
  709. XLVAL xcddadr(72,2493
  710. XLVAL xcddar(55,1841
  711. XLVAL xcdddar(73,2535
  712. XLVAL xcddddr(74,2577
  713. XLVAL xcdddr(56,1881
  714. XLVAL xcddr(46,1538
  715. XLVAL xcdr(34,1285
  716. XLVAL xcons(99,3109
  717. XLVAL xdelete(717,15847
  718. XLVAL xdelif(766,16843
  719. XLVAL xdelifnot(773,16965
  720. XLVAL xlast(197,5006
  721. XLVAL xlength(528,12044
  722. XLVAL xlist(113,3371
  723. XLVAL xmapc(559,12676
  724. XLVAL xmapcar(565,12773
  725. XLVAL xmapl(571,12867
  726. XLVAL xmaplist(577,12967
  727. XLVAL xmember(214,5303
  728. XLVAL xnconc(682,15165
  729. XLVAL xnth(492,11312
  730. XLVAL xnthcdr(498,11404
  731. XLVAL xremif(405,9458
  732. XLVAL xremifnot(412,9580
  733. XLVAL xremove(371,8728
  734. XLVAL xreverse(174,4544
  735. XLVAL xrplca(648,14509
  736. XLVAL xrplcd(665,14839
  737. XLVAL xsort(829,18089
  738. XLVAL xsublis(315,7461
  739. XLVAL xsubst(271,6492
  740. X
  741. X..\v2.1\xlmath.c,997
  742. XLOCAL badfop(426,10612
  743. XLOCAL badiop(420,10505
  744. XLOCAL LVAL binary(64,1873
  745. Xcheckfneg(202,4807
  746. Xcheckfzero(194,4650
  747. Xcheckizero(186,4495
  748. XLOCAL LVAL compare(333,8577
  749. XLOCAL LVAL predicate(285,7372
  750. XLOCAL LVAL unary(227,5760
  751. XLVAL xabs(211,4993
  752. XLVAL xacos(218,5349
  753. XLVAL xadd(25,689
  754. XLVAL xadd1(212,5044
  755. XLVAL xasin(217,5297
  756. XLVAL xatan(219,5401
  757. XLVAL xcos(215,5195
  758. XLVAL xdiv(28,839
  759. XLVAL xequ(327,8340
  760. XLVAL xevenp(281,7210
  761. XLVAL xexp(220,5453
  762. XLVAL xexpt(32,1045
  763. XLVAL xfix(222,5556
  764. XLVAL xfloat(223,5612
  765. XLVAL xgcd(38,1303
  766. XLVAL xgeq(329,8437
  767. XLVAL xgtr(330,8486
  768. XLVAL xleq(326,8291
  769. XLVAL xlogand(33,1098
  770. XLVAL xlogior(34,1153
  771. XLVAL xlognot(210,4939
  772. XLVAL xlogxor(35,1208
  773. XLVAL xlss(325,8243
  774. XLVAL xmax(31,993
  775. XLVAL xmin(30,941
  776. XLVAL xminusp(278,7038
  777. XLVAL xmul(27,789
  778. XLVAL xneq(328,8388
  779. XLVAL xoddp(282,7267
  780. XLVAL xplusp(280,7153
  781. XLVAL xrand(224,5665
  782. XLVAL xrem(29,889
  783. XLVAL xsin(214,5144
  784. XLVAL xsqrt(221,5504
  785. XLVAL xsub(26,739
  786. XLVAL xsub1(213,5094
  787. XLVAL xtan(216,5246
  788. XLVAL xzerop(279,7096
  789. X
  790. X..\v2.1\xlobj.c,485
  791. XLVAL clanswer(268,6953
  792. XLVAL clisnew(239,6081
  793. XLVAL clnew(231,5921
  794. XLOCAL LVAL entermsg(293,7563
  795. XLOCAL LVAL evmethod(368,9371
  796. XLOCAL int getivcnt(417,10545
  797. XLOCAL int listlength(427,10810
  798. XLVAL obclass(183,4756
  799. XLVAL obisnew(174,4608
  800. XLVAL obshow(192,4927
  801. Xobsymbols(437,10990
  802. XLOCAL LVAL sendmsg(314,8074
  803. Xxladdivar(81,2355
  804. Xxladdmsg(88,2513
  805. XLVAL xlclass(59,1829
  806. Xint xlobgetvalue(102,2895
  807. Xint xlobsetvalue(138,3767
  808. Xxloinit(450,11346
  809. XLVAL xsend(39,1363
  810. XLVAL xsendsuper(47,1546
  811. X
  812. X..\v2.1\xlpp.c,156
  813. XLOCAL int flatsize(116,2455
  814. XLOCAL pp(44,1066
  815. XLOCAL ppexpr(92,1973
  816. XLOCAL pplist(54,1204
  817. XLOCAL ppputc(100,2142
  818. XLOCAL ppterpri(108,2273
  819. XLVAL xpp(25,607
  820. X
  821. X..\v2.1\xlprin.c,309
  822. XLOCAL putatm(237,5548
  823. XLOCAL putchcode(307,7715
  824. XLOCAL putclosure(256,6052
  825. XLOCAL putfixnum(283,7132
  826. XLOCAL putflonum(295,7422
  827. XLOCAL putoct(329,8106
  828. XLOCAL putqstring(188,4587
  829. XLOCAL putstring(176,4347
  830. XLOCAL putsubr(246,5780
  831. XLOCAL putsymbol(129,3142
  832. Xxlprint(28,1050
  833. Xxlputstr(121,3013
  834. Xxlterpri(114,2917
  835. X
  836. X..\v2.1\xlread.c,783
  837. XLOCAL badeof(753,16286
  838. XLVAL callmacro(822,17765
  839. XLOCAL int checkeof(742,16121
  840. Xdefmacro(812,17485
  841. Xint isnumber(761,16429
  842. XLOCAL int nextch(729,15843
  843. XLOCAL pcomment(415,9203
  844. XLOCAL LVAL plist(450,10066
  845. XLOCAL int pname(604,13126
  846. XLOCAL LVAL pnumber(431,9581
  847. XLOCAL LVAL pquote(560,12242
  848. XLOCAL LVAL pstruct(536,11814
  849. XLOCAL LVAL psymbol(585,12737
  850. XLOCAL LVAL punintern(595,12958
  851. XLOCAL LVAL pvector(509,11280
  852. XLOCAL LVAL readlist(659,14406
  853. Xint readone(126,3334
  854. XLVAL rmbquote(339,7765
  855. XLVAL rmcomma(353,8043
  856. XLVAL rmdquote(259,6029
  857. XLVAL rmhash(170,4271
  858. XLVAL rmlpar(376,8474
  859. XLVAL rmquote(245,5752
  860. XLVAL rmrpar(390,8733
  861. XLVAL rmsemi(396,8829
  862. XLOCAL int storech(709,15433
  863. XLVAL tentry(718,15587
  864. XLOCAL upcase(839,18175
  865. Xint xlload(51,1787
  866. Xint xlread(112,3046
  867. Xxlrinit(848,18346
  868. X
  869. X..\v2.1\xlstr.c,1336
  870. XLOCAL LVAL changecase(108,3890
  871. XLOCAL LVAL chrcompare(486,13071
  872. X#define fix(9,241
  873. XLOCAL getbounds(190,5920
  874. XLOCAL int inbag(223,6750
  875. XLOCAL LVAL strcompare(50,1993
  876. XLOCAL LVAL trim(151,4978
  877. XLVAL xalphanumericp(461,11945
  878. XLVAL xbothcasep(394,10466
  879. XLVAL xchar(339,9304
  880. XLVAL xcharcode(412,10864
  881. XLVAL xcharint(358,9734
  882. XLVAL xchdowncase(441,11490
  883. XLVAL xchreql(472,12278
  884. XLVAL xchrgeq(474,12407
  885. XLVAL xchrgtr(475,12472
  886. XLVAL xchrieql(480,12741
  887. XLVAL xchrigeq(482,12885
  888. XLVAL xchrigtr(483,12958
  889. XLVAL xchrileq(479,12665
  890. XLVAL xchrilss(478,12596
  891. XLVAL xchrineq(481,12811
  892. XLVAL xchrleq(471,12213
  893. XLVAL xchrlss(470,12149
  894. XLVAL xchrneq(473,12342
  895. XLVAL xchupcase(431,11264
  896. XLVAL xcodechar(421,11040
  897. XLVAL xdigitchar(451,11714
  898. XLVAL xdigitp(403,10662
  899. XLVAL xdowncase(101,3647
  900. XLVAL xintchar(367,9916
  901. XLVAL xlefttrim(147,4842
  902. XLVAL xlowercasep(385,10282
  903. XLVAL xndowncase(105,3802
  904. XLVAL xnupcase(104,3748
  905. XLVAL xrighttrim(148,4887
  906. XLVAL xstrcat(234,6980
  907. XLVAL xstreql(36,1187
  908. XLVAL xstrgeq(38,1320
  909. XLVAL xstrgtr(39,1387
  910. XLVAL xstrieql(44,1660
  911. XLVAL xstrigeq(46,1806
  912. XLVAL xstrigtr(47,1881
  913. XLVAL xstrileq(43,1582
  914. XLVAL xstrilss(42,1511
  915. XLVAL xstrineq(45,1731
  916. XLVAL xstring(311,8800
  917. XLVAL xstrleq(35,1120
  918. XLVAL xstrlss(34,1054
  919. XLVAL xstrneq(37,1253
  920. XLVAL xsubseq(269,7716
  921. XLVAL xtrim(146,4790
  922. XLVAL xupcase(100,3593
  923. XLVAL xuppercasep(376,10096
  924. X
  925. X..\v2.1\xlstruct.c,240
  926. XLOCAL addslot(355,9328
  927. XLOCAL updateslot(419,11068
  928. XLVAL xcpystruct(42,1027
  929. XLVAL xdefstruct(90,2065
  930. Xxlprstruct(334,8701
  931. XLVAL xlrdstruct(278,7249
  932. XLVAL xmkstruct(21,623
  933. XLVAL xstrref(56,1341
  934. XLVAL xstrset(67,1566
  935. XLVAL xstrtypep(80,1833
  936. X
  937. X..\v2.1\xlsubr.c,284
  938. Xint eq(134,2845
  939. Xint eql(141,2954
  940. Xint equal(162,3404
  941. Xint needsextension(98,2132
  942. XLVAL xlbadtype(115,2508
  943. XLVAL xlgetfile(63,1433
  944. XLVAL xlgetfname(80,1765
  945. Xint xlgetkeyarg(22,564
  946. Xint xlgkfixnum(37,883
  947. XLVAL xlsubr(12,315
  948. Xxltest(49,1119
  949. XLVAL xltoofew(122,2642
  950. Xxltoomany(128,2756
  951. X
  952. X..\v2.1\xlsym.c,331
  953. XLOCAL LVAL findprop(209,4620
  954. Xint hash(220,4864
  955. XLVAL xlenter(17,454
  956. XLVAL xlgetfunction(126,2796
  957. XLVAL xlgetprop(174,3874
  958. XLVAL xlgetvalue(57,1359
  959. XLVAL xlmakesym(46,1150
  960. Xxlputprop(182,4054
  961. Xxlremprop(193,4297
  962. Xxlsetfunction(156,3476
  963. Xxlsetvalue(98,2193
  964. Xxlsinit(231,5059
  965. XLVAL xlxgetfunction(140,3097
  966. XLVAL xlxgetvalue(71,1628
  967. X
  968. X..\v2.1\xlsys.c,174
  969. XLVAL xaddrs(151,3310
  970. XLVAL xbaktrace(95,2331
  971. XLVAL xexit(112,2569
  972. XLVAL xload(23,617
  973. XLVAL xpeek(119,2668
  974. XLVAL xpoke(133,2946
  975. XLVAL xtranscript(49,1146
  976. XLVAL xtype(68,1603
  977. SHAR_EOF
  978. if test 13349 -ne "`wc -c 'tags'`"
  979. then
  980.     echo shar: error transmitting "'tags'" '(should have been 13349 characters)'
  981. fi
  982. #    End of shell archive
  983. exit 0
  984. -- 
  985. Gary Murphy                   uunet!mitel!sce!cognos!garym
  986.                               (garym%cognos.uucp@uunet.uu.net)
  987. (613) 738-1338 x5537          Cognos Inc. P.O. Box 9707 Ottawa K1G 3N3
  988. "There are many things which do not concern the process" - Joan of Arc
  989.  
  990.